object frmTestHistoryComboBox: TfrmTestHistoryComboBox Left = 456 Top = 178 Width = 281 Height = 191 Caption = 'HistoryComboBox - Test' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 10 Top = 96 Width = 249 Height = 55 end object Label1: TLabel Left = 18 Top = 101 Width = 232 Height = 13 Caption = 'Put in some Text in the above History-Combobox.' end object Label2: TLabel Left = 18 Top = 119 Width = 205 Height = 13 Caption = 'Read: Fills the Combobox from the Registry.' end object Label3: TLabel Left = 18 Top = 134 Width = 225 Height = 13 Caption = 'Write: Updates the Combobox and the Registry.' end object btRead: TButton Left = 193 Top = 15 Width = 66 Height = 28 Caption = '&Read' TabOrder = 0 OnClick = btReadClick end object btWrite: TButton Left = 193 Top = 51 Width = 66 Height = 28 Caption = '&Write' TabOrder = 1 OnClick = btWriteClick end end